-- card: 2111 from stack: in
-- bmap block id: 5615
-- flags: 0000
-- background id: 2585
-- name: lobby
----- HyperTalk script -----
on mouseEnter
  put "Building Metaphore" & return & "click an environment to see" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseLeave

on closecard
  pass closeCard
end closecard

on openCard
  global floor, currentFloor
  put "Welcome!" & return & "select your host environment" into field "Tell"
  hide cd btn "destinationHiliter"
  put "0  Lobby" into currentFloor
  put 0 into floor
  set hilite of cd btn "elevatorChoices" to true
end openCard



-- part 85 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=0 right=303 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part 84 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=400 top=78 right=124 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: elevatorChoices


-- part 86 (button)
-- low flags: 00
-- high flags: 4000
-- rect: left=0 top=0 right=27 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Title bar


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=496 top=263 right=275 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: elevator
----- HyperTalk script -----
on mouseUp
  global floor,lastfloor,currentfloor
  global Help
  if Help is True then exit mouseUp
  put 3 into floor
  push card
  set the lockscreen to true
  go to cd "ElevatorOpen"
  put line floor of cd field "Destination" into currentfloor
  put currentFloor into cd field "currentfloor"
  set the hilite of button id 11 to false
  set the hilite of button id 12 to false
  set the hilite of button id 13 to false
  set the hilite of button id 14 to false
  set the hilite of button currentfloor to true
  put currentfloor into cd field "currentfloor"
  go to cd "ElevatorDoorLobby"
  unlock screen with visual effect dissolve
end mouseUp

--• HELP
on mouseEnter
  global Help
  if Help then
    set lockscreen to true
    show field "Explainer"
    put "This is the Elevator Button" && return && return && "Feel free to wander through this building, " && "examining the environments and solutions provided." into field "Explainer"
    unlock screen with dissolve fast
  else
    put "Elevator Button" & return & "click to go in" into fld "Tell"
    changeCurs 6069
  end if
end mouseEnter

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown


on mouseLeave
  global Help
  if Help
  then
else
  put empty into fld "Tell"
  changeCurs 69
end if
end mouseLeave


-- part 42 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=479 top=263 right=275 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Schematic
----- HyperTalk script -----
on mouseUp
  Global Help
  if Help is true then exit MouseUp
  visual effect dissolve slowly to white
  push card
  go stack "Apple Desktop Connectivity"
  pass mouseUp
end mouseUp

on mousedown
  send mousedown to field "Explainer"
end mousedown

--• HELP
--on mouseEnter
global Help
if Help then
  set lockscreen to true
  show field "Explainer"
  put "This is the Network Schematics Button" & return & return & "This button will take you" & return & "to a stack of networking configurations." & return & "(If that stack is available to your system)" into field "Explainer"
  unlock screen with dissolve fast
else
  put "Network Schematics Button" & return & "click to go to that stack" into fld "Tell"
end if
--end mouseEnter

--on mouseLeave
global Help
if Help
then
else
  put empty into fld "Tell"
end if
--end mouseLeave


-- part 43 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=21 top=148 right=287 bottom=221
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 242
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: zoomer


-- part 44 (button)
-- low flags: 80
-- high flags: 0002
-- rect: left=419 top=60 right=138 bottom=462
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Elevator
----- HyperTalk script -----
on mouseUp
  hide me
end mouseUp



-- part 50 (button)
-- low flags: 80
-- high flags: 0002
-- rect: left=283 top=87 right=231 bottom=391
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ElevatorThing
----- HyperTalk script -----
on mouseUp
  pass mouseUp
end mouseUp



-- part 69 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=170 top=305 right=341 bottom=342
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Blinker
----- HyperTalk script -----
on mouseEnter
  put "Message Field" & return & "displays help information" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
end mouseLeave


-- part 76 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=1 top=0 right=28 bottom=202
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 18
-- style flags: 2048
-- line height: 24
-- part name: RoomName


-- part 80 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=70 top=38 right=78 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=73 top=38 right=231 bottom=163
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Briefing Room Button" & return & "click to enter" into fld "Tell"
end mouseEnter

on mouseUp
  set cursor to busy
  visual effect zoom open slowly
  go to cd "Briefing Room"
end mouseUp

On mouseDown
  Global ClickSND
  play ClickSND
End mouseDown

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 77 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=385 top=303 right=342 bottom=428
-- title width / last selected line: 0
-- icon id / first selected line: 18849 / 18849
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: mask
----- HyperTalk script -----
on mouseEnter
  changeCurs 6069
  put "Lobby Button" & return & "current location" into fld "Tell"
end mouseEnter

on mouseLeave
  put empty into fld "Tell"
  changeCurs 69
end mouseLeave


-- part 78 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=402 top=123 right=226 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 10
-- style flags: 16384
-- line height: 13
-- part name: Destination
----- HyperTalk script -----
on mouseUp
  global Env,currentFloor,lastFloor
  set cursor to busy
  --∆ Get line number and highlight line
  put line SelectionAndHiliter(1) of me into Env
  show cd button "DestinationHiliter"
  --∆ Go inside elevator and set up view
  set lockscreen to true
  go to cd "ElevatorOpen"
  --∆ Show name of chosen env
  put env into EnvTemp
  put envTemp into cd field "EnvName"
  --∆ Fix env for code use
  if Env is "Macintosh" then put "Mac" into Env
  --∆ Set floor indicators
  hide cd button "destinationHiliter"
  hide cd button "3  ApplicationsHiliter"
  hide cd button "2  Network ServicesHiliter"
  hide cd button "1  HardwareHiliter"
  show cd button "0  LobbyHiliter"
  --∆ Set lights over door
  set the hilite of btn "3  Applications" to false
  set the hilite of btn "2  Network Services" to false
  set the hilite of btn "1  Hardware" to false
  set the hilite of btn "0  Lobby" to true
  --∆ Put level name over door
  put currentFloor into cd fld "currentFloor"
  play "22"
  unlock screen with visual effect barn door open
end mouseup

on mouseEnter
  changeCurs 6069
  put "Environment Chooser" & return & "click to enter elevator" into fld "Tell"
end mouseEnter

on mouseLeave
  changeCurs 69
  put "" into fld "Tell"
end mouseLeave


-- part 79 (button)
-- low flags: 80
-- high flags: 4000
-- rect: left=403 top=128 right=142 bottom=472
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: DestinationHiliter


-- part 81 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=290 top=38 right=78 bottom=386
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 156
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 82 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=399 top=78 right=122 bottom=477
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 156
-- text size: 12
-- style flags: 10240
-- line height: 14
-- part name: 


-- part 83 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=280 top=84 right=231 bottom=394
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  set hilite of cd btn elevatorChoices to true
  play cymbal
end mouseUp



-- part 87 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=280 top=276 right=293 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Time


-- part 88 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=62 top=274 right=291 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Old Time


-- part contents for card part 43
----- text -----
     Zoomer is an XCMD resource which you may install in any stack to produce a zooming rectangle animation effect, similar to that in the Finder.  I've seen a couple of other externals similar to this, but I think you will find this one snappier and smoother than the others.

     The syntax of zoomer is as follows:

     Zoomer L1,T1,R1,B1,L2,T2,R2,B2

where L1, T1, R1 and B1 are the left, top, right and bottom coordinates of the origin rectangle, and L2, T2, R2 and B2 are the left, top, right and bottom coordinates of the destination rectangle.  This order corresponds to the order of coordinates used by Hypercard when you request the Rect of an object, like a button or field.  The parameters should be whole numbers.

For a more creative use of Zoomer, close this window and click the ? icon again, with the Option key held down.

If you pass more than eight parameters to Zoomer, any extra parameters will be ignored.  If you pass less than eight parameters, Zoomer will do nothing.  Likewise, if you try to pass any non-numeric characters, Zoomer will just play dead.

Mac II users:  Zoomer operates on coordinates local to the HyperCard window, not global screen coordinates.



-- part contents for card part 76
----- text -----
Connectivity Lobby

-- part contents for card part 78
----- text -----
Digital
IBM
Macintosh
PC
Tandem
UNIX
Wang


-- part contents for card part 80
----- text -----
Executive
Briefing Room


-- part contents for card part 81
----- text -----
Connectivity
Elevator


-- part contents for card part 82
----- text -----
Choose  your
Installed
Environment

-- part contents for card part 87
----- text -----
2723213366

-- part contents for card part 88
----- text -----
2723213366